Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/TOC.DIR/00010_Script_spbx

Text File | 1995-11-21 | 2KB | 67 lines

--sets button links to poems
--
--property myLabelName, myChannel, myMovieName, hasReading
--global gPoemLabel
--
--on birth me, LN, SP, QT
--  set myLabelName to LN
--  set myChannel to SP
--  set myMovieName to "POETRY"
--  set hasReading to (QT=TRUE)
--  return me
--end birth

on spbrollo myChannel, hasReading
  --put ">>>my rollover cast 10 spb ink change"

--  puppetSprite myChannel,TRUE
--  set the ink of sprite myChannel to 33
--  set the forecolor of sprite myChannel to 134
--
--  puppetSprite myChannel, false
  puppetSprite 14,TRUE
  if hasReading then
    set the castNum of sprite 14 to cast "CPE.PIC"
  else set the castNum of sprite 14 to cast "QDBox"
  updateStage
end

on spbpress theLine
--  set myChannel = integer(item 4 of theLine)
--
--  puppetSprite myChannel,TRUE
--  set the ink of sprite myChannel to 38
--  updateStage
--  puppetSprite myChannel, false
end

on spbnorm theLine
--  set myChannel = integer(item 4 of theLine)
  set hasReading = integer(item 6 of theLine)
--  puppetSprite myChannel,TRUE
--  set the ink of sprite myChannel to 36
--  puppetSprite myChannel, false
  if hasReading <> empty then
    set the castNum of sprite 14 to cast "QDBox"
    puppetSprite 14, false
  end if
  updateStage
end

on spbdoScript theLine
  global gPoemLabel

  set myLabelName = item 5 of theLine
  set hasReading = item 6 of theLine

  --put ">>>spb poem label: "  & myLabelName
  put myLabelName into gPoemLabel

  if hasReading<> empty then
    set the castNum of sprite 14 to cast "QDBox"
    puppetSprite 14, false
  end if

  goGo(myLabelName)
  -- go movie myMovieName
end